﻿Imports BE.BE
Imports BL
Imports BL.BL

Public Class TestYGenerarPatentes

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub GenerarPatentes_Click(sender As Object, e As EventArgs) Handles btnGenerarPatentes.Click

        Try
            '*****  Negocio  ******
            'Clientes.
            'Helper_FL.CreaPatentes(frmGestionClientes)
            'Helper_FL.CreaPatentes(frmListarClientes)

            'Abogados.
            'Helper_FL.CreaPatentes(frmGestionAbogadosEstudio)
            'Helper_FL.CreaPatentes(frmListarAbogadosEstudio)
            'Helper_FL.CreaPatentes(frmGestionAbogadosAseguradora)
            'Helper_FL.CreaPatentes(frmListarAbogadosAseguradora)

            'Aseguradoras.
            'Helper_FL.CreaPatentes(frmGestionarAseguradoras)
            'Helper_FL.CreaPatentes(frmListarAseguradoras)
            'Helper_FL.CreaPatentes(frmGestionarPolizas)

            'Contrapartes.
            'Helper_FL.CreaPatentes(frmGestionContrapartes)
            'Helper_FL.CreaPatentes(frmListarContrapartes)

            'Expedientes.
            'Helper_FL.CreaPatentes(frmGestionarExpedientes)
            '*****************
            'Helper_FL.CreaPatentes(frmAltaExpediente)
            'Helper_FL.CreaPatentes(frmSeguimientoExpediente)
            'Helper_FL.CreaPatentes(frmCrearNotaExpediente)
            '*****************

            'Rubros.
            'Helper_FL.CreaPatentes(frmGestionarRubros)

            'Liquidación.
            'Helper_FL.CreaPatentes(frmSueldoAbogados)

            'Facturación.
            'Helper_FL.CreaPatentes(frmFacturacionClientes)

            '******* Seguridad **********
            'Herramientas.
            Helper_FL.CrearPatentes(frmCopiaSeguridad)
            Helper_FL.CrearPatentes(frmRestaurarCopiaSeguridad)
            Helper_FL.CrearPatentes(frmGestionUsuarios)
            Helper_FL.CrearPatentes(frmGestionFamilias)
            Helper_FL.CrearPatentes(frmCambiarClave)
            Helper_FL.CrearPatentes(frmCambiarIdioma)
            Helper_FL.CrearPatentes(frmBitacora)
            Helper_FL.CrearPatentes(frmChequeoRecalculoDV)

            'Ayuda.

            'Salir.

            MessageBox.Show("Patentes Generadas..")

        Catch ex As Exception
            MessageBox.Show("Error al generar las Patentes.." & ex.ToString)
        End Try

    End Sub

End Class